home *** CD-ROM | disk | FTP | other *** search
/ The 50th Anniversary of …National Assembly Library / The 50th Anniversary of the National Assembly Library.iso / main.dxr / 00152_New Behavior.ls < prev    next >
Encoding:
Text File  |  2002-02-18  |  1.1 KB  |  47 lines
  1. property mys, x, y, z, mywidth, myheight, xadd, yadd, zadd, rx, ry, rz, mymember, mdown, this
  2. global scale, xoff, yoff, zoff
  3.  
  4. on beginSprite me
  5.   mys = me.spriteNum
  6.   rx = 0
  7.   ry = 0
  8.   rz = 0
  9.   xadd = 0
  10.   yadd = 0
  11.   zadd = 0
  12.   zoff = 100
  13.   scale = 250
  14.   xoff = ((the stage).rect[3] - (the stage).rect[1]) / 2
  15.   mymember = the member of sprite mys
  16.   mywidth = (the member of sprite mys).width
  17.   myheight = (the member of sprite mys).height
  18.   x = random(1000) * [1, -1][random(2)]
  19.   y = random(1000)
  20.   z = random(700)
  21.   mdown = random(5) + 3
  22.   this = z / 100
  23. end
  24.  
  25. on exitFrame me
  26.   if y < -1000 then
  27.     y = random(100) + yoff + 500
  28.     mdown = random(5) + 3
  29.     x = random(1000) * getAt(list(1, -1), random(2))
  30.     z = random(700)
  31.     this = z / 100
  32.   end if
  33.   x = x + sin(this)
  34.   this = this + 0.01
  35.   y = y - mdown
  36.   mz = z + zoff + zadd
  37.   if mz = 0 then
  38.     mz = 0.00000001
  39.   end if
  40.   xp = x * scale / mz
  41.   yp = y * scale / mz
  42.   set the locH of sprite mys to xp + xoff
  43.   set the locV of sprite mys to yoff - yp
  44.   set the width of sprite mys to mywidth * scale / mz * 1.5
  45.   set the height of sprite mys to myheight * scale / mz * 1.5
  46. end
  47.